home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / do-eve1r / form4.frm < prev    next >
Text File  |  1999-07-11  |  2KB  |  89 lines
  1. VERSION 5.00
  2. Begin VB.Form Form3 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Lightning Messenger"
  6.    ClientHeight    =   5190
  7.    ClientLeft      =   45
  8.    ClientTop       =   345
  9.    ClientWidth     =   5550
  10.    Icon            =   "Form4.frx":0000
  11.    LinkTopic       =   "Form3"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   5190
  14.    ScaleWidth      =   5550
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.CommandButton Command4 
  17.       BackColor       =   &H00FF8080&
  18.       Caption         =   "&Cancel"
  19.       Height          =   495
  20.       Left            =   1440
  21.       Style           =   1  'Graphical
  22.       TabIndex        =   3
  23.       Top             =   4560
  24.       Width           =   1215
  25.    End
  26.    Begin VB.CommandButton Command3 
  27.       BackColor       =   &H00FF8080&
  28.       Caption         =   "&Send"
  29.       Height          =   495
  30.       Left            =   120
  31.       Style           =   1  'Graphical
  32.       TabIndex        =   2
  33.       Top             =   4560
  34.       Width           =   1215
  35.    End
  36.    Begin VB.TextBox Text2 
  37.       BackColor       =   &H00800000&
  38.       ForeColor       =   &H0000FFFF&
  39.       Height          =   2055
  40.       Left            =   120
  41.       MultiLine       =   -1  'True
  42.       ScrollBars      =   2  'Vertical
  43.       TabIndex        =   1
  44.       Top             =   2400
  45.       Width           =   5295
  46.    End
  47.    Begin VB.TextBox Text1 
  48.       BackColor       =   &H00800000&
  49.       ForeColor       =   &H0000FFFF&
  50.       Height          =   2175
  51.       Left            =   120
  52.       MultiLine       =   -1  'True
  53.       ScrollBars      =   2  'Vertical
  54.       TabIndex        =   0
  55.       Top             =   120
  56.       Width           =   5295
  57.    End
  58. End
  59. Attribute VB_Name = "Form3"
  60. Attribute VB_GlobalNameSpace = False
  61. Attribute VB_Creatable = False
  62. Attribute VB_PredeclaredId = True
  63. Attribute VB_Exposed = False
  64. Private Sub Command1_Click()
  65. ip = Form1.Win.RemoteHostIP
  66. Me.Height = 5840
  67. End Sub
  68.  
  69. Private Sub Command2_Click()
  70. Unload Me
  71. End Sub
  72.  
  73. Private Sub Command3_Click()
  74. Form1.Winsock2.RemoteHost = ip
  75. Form1.Winsock2.SendData "Meg " & Form1.Win.LocalIP & " says: " & Text1.Text & vbCrLf
  76. Text1.SelText = Form1.Win.LocalIP & " says: " & Text1.Text & vbCrLf
  77. Text2.Text = ""
  78. Text2.SetFocus
  79. End Sub
  80.  
  81. Private Sub Command4_Click()
  82. Unload Me
  83. End Sub
  84.  
  85. Private Sub Form_Activate()
  86. Text2.SetFocus
  87. End Sub
  88.  
  89.